library(plotly)
Loading required package: ggplot2

Attaching package: 'plotly'
The following object is masked from 'package:ggplot2':

    last_plot
The following object is masked from 'package:stats':

    filter
The following object is masked from 'package:graphics':

    layout
library(crosstalk)

files <- list.files("dataCSV")
i <- 0
frame = data.frame()
for (i in files) {
  csv <- gsub(" ", "", paste("dataCSV\\", i))
  data <- read.csv(csv, sep = ";", encoding = "Windows-1250")
  df <- data.frame(data)
  frame <- plyr::rbind.fill(frame, df)
}
f <- highlight_key(frame)

bscols(widths = 10,
       filter_select(id = "powiat_miasto", label = "Powiat", f, ~ powiat_miasto),
       plot_ly(data = f, x = frame$stan_rekordu_na, y = frame$liczba_przypadkow, type = 'scatter', mode = 'lines', color = frame$powiat_miasto)
)
Warning in bscols(widths = 10, filter_select(id = "powiat_miasto", label =
"Powiat", : Sum of bscol width units is greater than 12
Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors

Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
LS0tDQpUaXRsZTogVGhlIGRhdGEgbWF5IGJlIGluY29ycmVjdA0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCmBgYHtyfQ0KbGlicmFyeShwbG90bHkpDQpsaWJyYXJ5KGNyb3NzdGFsaykNCg0KZmlsZXMgPC0gbGlzdC5maWxlcygiZGF0YUNTViIpDQppIDwtIDANCmZyYW1lID0gZGF0YS5mcmFtZSgpDQpmb3IgKGkgaW4gZmlsZXMpIHsNCiAgY3N2IDwtIGdzdWIoIiAiLCAiIiwgcGFzdGUoImRhdGFDU1ZcXCIsIGkpKQ0KICBkYXRhIDwtIHJlYWQuY3N2KGNzdiwgc2VwID0gIjsiLCBlbmNvZGluZyA9ICJXaW5kb3dzLTEyNTAiKQ0KICBkZiA8LSBkYXRhLmZyYW1lKGRhdGEpDQogIGZyYW1lIDwtIHBseXI6OnJiaW5kLmZpbGwoZnJhbWUsIGRmKQ0KfQ0KZiA8LSBoaWdobGlnaHRfa2V5KGZyYW1lKQ0KDQpic2NvbHMod2lkdGhzID0gMTAsDQogICAgICAgZmlsdGVyX3NlbGVjdChpZCA9ICJwb3dpYXRfbWlhc3RvIiwgbGFiZWwgPSAiUG93aWF0IiwgZiwgfiBwb3dpYXRfbWlhc3RvKSwNCiAgICAgICBwbG90X2x5KGRhdGEgPSBmLCB4ID0gZnJhbWUkc3Rhbl9yZWtvcmR1X25hLCB5ID0gZnJhbWUkbGljemJhX3ByenlwYWRrb3csIHR5cGUgPSAnc2NhdHRlcicsIG1vZGUgPSAnbGluZXMnLCBjb2xvciA9IGZyYW1lJHBvd2lhdF9taWFzdG8pDQopDQpgYGA=